home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Utilities / Randomize / get-random < prev    next >
Encoding:
Text File  |  1998-10-23  |  224 b   |  13 lines  |  [TEXT/ScoM]
  1. get-random range-min range-max
  2.  
  3. Returns a random number in the range from range-min to range-max.
  4.  
  5. (init-rnd 0.456)
  6.  
  7. (let ((out nil))
  8.   (dotimes (i 10)
  9.     (push (get-random -5 5) out))
  10.   out)
  11. --> (3 -1 -3 -2 0 3 3 0 2 -2)
  12.  
  13.